home *** CD-ROM | disk | FTP | other *** search
/ Chip: Special Tips & Tricks for Windows 95 / Chip Wintips.iso / zeszyt / winbatch / wbt.mn_ < prev    next >
Text File  |  1995-10-10  |  1KB  |  47 lines
  1. ; Menu file for wbt extension
  2.         editor="notepad.exe"
  3.         ;See if WinEdit is lurking about via registry lookup
  4.     ErrorMode(@OFF)
  5.         WinEdit=strcat(RegQueryValue(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinEdit\CurrentVersion"),"WinEdit.exe")
  6.         ErrorMode(@CANCEL)
  7.         if WinEdit==0    ;No?  Try path
  8.            WinEdit=FileLocate("WINEDIT.EXE")
  9.            if WinEdit=="" then WinEdit=editor
  10.         endif
  11.  
  12. Run with WinBatch     ; Runs the Winbatch Interpreter on this file
  13.         fna=CurrFilePath()
  14.         Run("winbatch.exe",'"%fna%"')
  15.  
  16. Edit WinBatch    ; Edit the Winbatch file
  17.     f = CurrFilePath()
  18.     If !(FileExist(f))
  19.        f = ""
  20.     Else
  21.        If FileExtension(f) == "" 
  22.           f = StrCat(f, ".")
  23.        endif
  24.        f=FileNameShort(f)
  25.     endif
  26.     Run(WinEdit, f)
  27.  
  28. WinBatch Compiler  ;Run the WinBatch Compiler
  29.  
  30.  Small Exe         ;Make a small EXE file that requires the DLLs
  31.         fna=CurrFilePath()
  32.         fnb=strcat(FilePath(fna),FileRoot(fna),".exe")
  33.         Run("WBCompiler.exe",'2 "%fna%" "%fnb%" NONE')
  34.  
  35.  Big Exe           ;Imbed Dlls in the EXE file
  36.         fna=CurrFilePath()
  37.         fnb=strcat(FilePath(fna),FileRoot(fna),".exe")
  38.         Run("WBCompiler.exe",'1 "%fna%" "%fnb%" NONE NONE')
  39.  
  40.  
  41.  _Interactive mode ; Runs the compiler interactively
  42.         Run("WBCompiler.exe","")
  43.                 
  44.    
  45.   
  46.  
  47.